home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_util / vbrig / tipdemo2.fr_ / tipdemo2.fr (.txt)
Encoding:
Visual Basic Form  |  1995-04-14  |  2.9 KB  |  93 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "Form2"
  4.    ClientHeight    =   1305
  5.    ClientLeft      =   900
  6.    ClientTop       =   4470
  7.    ClientWidth     =   3675
  8.    Height          =   1710
  9.    HelpContextID   =   2000
  10.    Left            =   840
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   1305
  13.    ScaleWidth      =   3675
  14.    Top             =   4125
  15.    Width           =   3795
  16.    Begin OptionButton Option1 
  17.       Caption         =   "Option1"
  18.       Height          =   315
  19.       HelpContextID   =   2004
  20.       Left            =   2340
  21.       TabIndex        =   5
  22.       Tag             =   "Form2 - Option Button"
  23.       Top             =   720
  24.       Width           =   1155
  25.    End
  26.    Begin ComboBox Combo1 
  27.       Height          =   300
  28.       HelpContextID   =   2003
  29.       Left            =   120
  30.       TabIndex        =   4
  31.       Tag             =   "Form2 - Combo Box"
  32.       Text            =   "Combo1"
  33.       Top             =   720
  34.       Width           =   2115
  35.    End
  36.    Begin PictureBox Picture1 
  37.       Align           =   1  'Align Top
  38.       BackColor       =   &H00C0C0C0&
  39.       BorderStyle     =   0  'None
  40.       Height          =   555
  41.       HelpContextID   =   2005
  42.       Left            =   0
  43.       ScaleHeight     =   555
  44.       ScaleWidth      =   3675
  45.       TabIndex        =   0
  46.       Top             =   0
  47.       Width           =   3675
  48.       Begin CommandButton Command2 
  49.          Caption         =   "Command2"
  50.          Height          =   435
  51.          HelpContextID   =   2002
  52.          Left            =   1200
  53.          TabIndex        =   2
  54.          Tag             =   "Form2 - Command Button #2"
  55.          Top             =   60
  56.          Width           =   1155
  57.       End
  58.       Begin CommandButton Command1 
  59.          Caption         =   "Command1"
  60.          Height          =   435
  61.          HelpContextID   =   2001
  62.          Left            =   60
  63.          TabIndex        =   1
  64.          Tag             =   "Form2 - Command Button #1"
  65.          Top             =   60
  66.          Width           =   1095
  67.       End
  68.       Begin Label Label1 
  69.          Alignment       =   2  'Center
  70.          BorderStyle     =   1  'Fixed Single
  71.          Caption         =   "Labels don't have an hWnd"
  72.          FontBold        =   0   'False
  73.          FontItalic      =   0   'False
  74.          FontName        =   "MS Sans Serif"
  75.          FontSize        =   8.25
  76.          FontStrikethru  =   0   'False
  77.          FontUnderline   =   0   'False
  78.          Height          =   435
  79.          Left            =   2400
  80.          TabIndex        =   3
  81.          Top             =   60
  82.          Width           =   1215
  83.       End
  84.    End
  85. Option Explicit
  86. 'See comments in TIPDEMO.BAS
  87. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  88. If UnloadMode <> 1 Then  'via code
  89.    Cancel = True
  90.    Call EndMain
  91. End If
  92. End Sub
  93.